home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / dev / lang / uc_0_30.lha / u / tca / tc0012.ua < prev    next >
Text File  |  1996-10-30  |  550b  |  50 lines
  1. `**********************
  2. `* P R O J E C T  < U >
  3. `*
  4. `* Author and copyright
  5. `* (c) 1996
  6. `* Paul van der Valk
  7. `*
  8. `* file: tc0012.ua
  9. `*
  10. `* Tests the greater-than-or-equal operator.
  11.  
  12. #1 .H 2 0 0 0
  13. #2 .M "tc0012" 20 0 0 0
  14.  
  15. #20 >22 .c 1 21
  16. #21 .s "(100 >= 99) = "
  17.  
  18. #22 >29 .c 4 23
  19. #23 @ge 24 25
  20. #24 .n 100
  21. #25 .n 99
  22.  
  23. #29 >30 .c 3 0
  24.  
  25.  
  26. #30 >32 .c 1 31
  27. #31 .s "(100 >= 100) = "
  28.  
  29. #32 >39 .c 4 33
  30. #33 @ge 34 35
  31. #34 .n 100
  32. #35 .n 100
  33.  
  34. #39 >40 .c 3 0
  35.  
  36.  
  37. #40 >42 .c 1 41
  38. #41 .s "(100 >= 101) = "
  39.  
  40. #42 >49 .c 4 43
  41. #43 @ge 44 45
  42. #44 .n 100
  43. #45 .n 101
  44.  
  45. #49 .c 3 0
  46.  
  47.  
  48.  
  49.  
  50.